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EDITORIAL 

Foi realmente espantosa a aceitacao que SO PROGRAMAS obteve no seu 
priraeiro numcro, inumeras cartas foram enviadas, algumas elogiando outras 
dan do sugestoes e perguntas. outras fazendo criticas construtivas alertando nossa 
equipe para os proWemas ainda existenles na area, mas que nem sempre podem 
ser detectados e resolvidos com facilidade, mas com certeza nao deixaremos de 
resolve-los, mesmo que estes sejam de uma minoria, ou at£ de uma s6 pessoa, 
mas nffo % esquecendo que esta publicacao trata-se de S6 PROGRAMAS, por 
outro lado nossa secao de cartas resolvert outros problemas ou curiosidades que 
vierem a surgir. 

Lembrem-se de que, para obtermos sucesso suficientemente para agradar a 
todos os leitores dependemos tinica e exclusivamente de VOCE LEITOR, e £ por 
esse motivo, que em nome de toda equipe, transmito o nosso MUITO OBRIGA- 
DO. 
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"Recebi o primeiro nurnero da revista "SO PRO- w 

GRAMAS" que me respondeu preenchendo urn 
-- I'az/'o existente no mercado, ate" o surgimento desta 

\-) revista nao se conseguia uma publicacao que apre- O 

sentasse prograrnas simples e tantos em uma so 
publicacao das revistas existentes, quando muito 
r~*\ encontrasse uma que traga tres ou quatro progra- f~\ 

mas, 4 digna de elogios tainbem a apresentacao da 

revista com uma forma /eve e gostosa de ler e com 
r~\ a belfssima apresentacao dos prograrnas e uma for- s~\ 

^ ma simples e c/ara de boa impressao e com tipos e ^ 

disposicao de letras que facilitam sua leitura duran- 

te a digitacao evitando os tao famigerados erros 
\J que causam aque/a decepcao de apbs digitar 500 li- O 

nhas de programa (e quanto mais pior} vermosnos- 

so programa n§o funcionar e termos que perder 
Q mais a/gum tempo corrigindo os erros. (~\ 

Gostaria apenas de apontar o fa/to de prograrnas 

para a linha Apple (no primeiro nurnero) embora 
r-^K Concorde que a publicacao de prograrnas para a ^>. 

linha Sinclair e TRS-80 (TKs, CP-200, CP-300, 

etc.) atendam a quase total idade do mercado de 

micros pessoa/'s no Brasif. Sinto-me desconso/ado 
Ly ao nao encontrar publicacoes com prograrnas para O 

o meu TK-2000 (Apple) e nern sernpre conseguir 

modificar os cornandos dos outros prograrnas para 
Q adaptS-los ao meu micro. Gostaria de pedir, sepos- Q 

sivel, que voces pub/ icassern a/guns prob/emas para 

o TK-2000 ou para APPLE fa" que a/a adaptacao se 
s~\ torna mais facil; ou que voces pub/icassem algumas ^-\ 

dicas para modiflcocao para outros micros. *-* 

Creio que jd temos'alguns possuidores do TK- 
2000 espalhados por ai e que este/am encontrando 
(J as mesmas dificuldades. O 

Em sintese, "SO PROGRAMAS" 6 uma pub/i- 

cacSo digna de todos os elogios para a qua/ trans- 
Q mito minhas felicitacoes e desejo de p/eno sucesso. (~) 

PS. Abracos para o Alexandre." 
R/cardo Caponero 

ORua OHveira Peixoto, 148, casa 17 ^%. 

1R3C) - Ran Pmiln - $P *<J 
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Prezado Ricardo 

Antes de mais nada agradeco os elogios e votos 
de felicidades, e tambem procurando manter os 
pontos favor£veis por voce citado, e quanto aos 
programas para o TK-2000, que por ser urn compu- 
tador recente no mercado, e possuir linguagem de 
certo modo diferente dos outros computadores, 
estamos estudando e programando, para que no 
futuro publiquemps programas especialmente 
desenvolvidos para o TK-2000, quanto aos progra- 
mas para a linha APPLE, nos proximos numeros 
iremos publicar programas nessa linha de compu- 
tadores. Nos proximos numeros lancaremos urn 
mesmo prograrna para os computadores das linhas: 
SINCLAIR, TRS-80 e APPLE, e num futuro tarn- 
bem incluiremos o TK-2000, pois ele possui algu- 
mas diferencas mesmo com os da linha APPLE, 
quanto as dicas e problemas indico a revista 
"SOFT+HARD" desta mesma editora. 

PS. Abracos para o Alexandre tambem. 

(Cci entre nos "6 letrinha".) 

"Adquiri ha pouco tempo urn TK85 a gostei 
muito da pub/icacao "SO PROGRAMAS" que me 
forneceu tantos programas (instrutivos). E/es sao 
simples, prat/cos, de tons resultados, facil de en- 
tender, enfim, uma revista que auxi/ia muito aque- 
les que, corno eu, se iniciam na area de informatica. 

Enviando meus cumprimentos a equipe de pro- 
gramadores, gostaria que dedicassem aiguin espaco 
comentando e dando dicas sobre os video-games 
(se possivel, orientando suas programacdes) pot's 
possuo um video-game A TAR/. 

Em tempo, adorei o "QUALQUER CO ISA", 
que provocou realmente bastante riso, e tambem 
do "BARRE/RA". Aprendi muito com seus pro- 
gramas, muito mais que no manual. " 

Tetsuo Yokihama 

Av. 4,nQ2 - Rio Claro 

Sao Paulo - SP 

Prezado Tetsuo, antes de mais nada muito obri- 
gado pelos elogios que deixou toda equipe alegre 
por ter satisfeito seus problemas e tambem por 
diveni-lo, quanto as dicas a video-game sugerimos 
a revista "SOFT+HARD" desta mesma editora. 
E para voce que esta* aprendendo, nesta edicao 
estamos lanpando uma segac com programas expli- 
cados linha por linha, justamente para auxiliar 
ainda mais aos iniciantes como voce. Continue 
conosco, e estamos a disposipao sempre que Ihe 
surgir algum problema ou duvida. 
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Car/ssimo Redator, 
Acabei de ler a ultima Unha da revista "SO PRO- 
GRAMAS". GENIAL!!! Todos os usuarios de ml- 
crocomputadores devem estar fe/t'ci'ssimos com 
essa publicacao. As revistas com programas que 
conheco, nao oferecem a diversificacao de "SO 
PROGRAMAS". 

Achei fa/ta, no entanto, de programas para o 
APPLE, apesar de este nao ser o meu caso, mas 
possuo urn amigo que o tern. Espero que supram 
essa deficiencia que, do meu ver, 4 a unica. 

Querendo ocrcsccntar do louvavcl trabalho de 
voces, peco que pub/iquem programas com suas 
linhas explicadas, pois isso me ajudaria a desen- 
volver o meu aprendizado. Gostaria se possi'vel 
que me explicassem a Unha 6 do programa "NHA- 
KUS", a unica coisa que sei 6 que 4 urn cddigo de 
mSquina, mas gostaria de saber qua/ a sua funcao. 

Sem mais, espero que sigam em f rente, cad a 
vez rnelhor. " 

Gilberto de Souza Sampaio 

Av. Caetes, 158 - Perdizes 

Sao Paulo - SP 



Caro Gilberto, alegra-me estar contente com a 
revista, quanto a programas para a linha APPLE, 
como jS havia dito antes, estamos trabalhando no 
caso, e tenho certeza que a supriremos nos proxi- 
mos numeros, sobre o programa com suas linhas 
explicadas, para sua felicidadea partirdesta edicao 
id lancamos a secao APRENDA NA PRATICA, 
que justamente explica linha por linha de um pro- 
grama, que gradativamente acrescentaremos novos 
incrementos, para realmente ampliar o aprendizado 
dos leitores em desenvolvimento. A linha 6 POKE 
16418,0, apesar de neste numefo estar explicada 
na secao APRENDA NA PRATICA, irei repetir 
aqui tambem. Quando voce liga o computador este 
endereco (16418) estara" carregado com 2, esse 6 o 
endereco das linhas inferiores na tela, nasquais 
digitamos o programa, ao se carregar este endereco 
com iremos desta forma liberar as duas ultimas 
linhas para serem usadas no programa, assim tere- 
mos agora um total de 24 linhas na tela. 

Muito obrigado mais uma vez, e se tiver mais 
duvidas escreva-nos que as esclareceremos. 
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/"\ "N&o sou nenhum viciado em cartas, mas ado- s~\ 

rei jogar com meu micro o logo VINTE £ UM, ^ 

realmente esta 4 uma publicacSo genial que pre- 

Oencheu o que faltava no mercado, principalmente -. 

por encontrar a revista no jornaleiro da esquina de O 

casa f o que evita v£rios empecilhos. Gostaria de 
assinar a revista, por isso peco informacoes sobre 
Q como fazer. Gostaria tarnbim que fossem feitos Q 

os outros programas para o meu tipo de compu- 
tador, pois fiquei curioso em saber como eram os 

/~\ outros programas, principalmente o "QUALQUER s-\ 

V - y COISA". {J 

Meus parab6ns pela excelente revista, continuem 

Oassim. " 
Jos4 deAraujo Lima \J 

Rua Siqueira Bueno, 117 — Pari 
Sao Paulo - SP 

O 

£ isso af, Jose\ nao seja nenhum viciado em car- 
tas (mas com seu micro pode n6). Sobre as assina- 
/-\ turas ainda nao conclufmos as instalagoes de nosso f\ 

departamento de assinaturas, mas nao se preocupe ^ 

tSo logo estejamos aptos a atende-lo e tamb6m a 

O outros leitores que nos tern enviado cartas, comuni- ^ 

caremos. Quanto as tradu^oes de programas, j< U 

estamos elaborando urn esquema sobre'esse aspec- 
to. Muito obrigado e continue com a gente. 

O O 

"Prezados amigos, 

Gostaria de parabeniza-los por esta pubiicacao 
s-\ que realmente faltava, principalmente sobre o as- /~\ 

^ pec to de serem vendidas nas bancas de jornais, pois 

antes desta pubiicacao, a unica coisa que havia no 
_^ genero eram livros que possuem uma certa quanti- 

\J dade de programas, mas de custo alto e raros, pois O 

$6 se encontram em algumas livrarias do Centro de 

Sao Paulo. Realmente fico contente com ta/pub/i- 
Q cacSo, pois significa um avanco na 4rea de infor- Q 

mitica no Pais, por outro lado note! a fafta de pro- 
gramas para a linha APPLE, o qua/ possuo um. 
Q Acred/to que nos prdximos numeros serao lanca- f\ 

dos programas para essa linha, pelo menos e o que ^ 

espero, por outro lado tambem reconheco que 4 

Own computador que poucas pessoas possuem pelo _ 

seu custo ser alto. Gostaria alim de que publicassem O 

programas para tal linha cn'assem uma secao de 

programas dos leitores criando assim um tipo de 
Q intercambio de programas, o que ajudaha a suprir Q 

cssa dificuldade de acesso a programas de compu- 

tadores de alto custo, e logico, contando com a 
f~\ minha colaboracSo dentro do que sei com progra- /~\ 

mas desenvolvidos por mim, e tambem com a co- 

laboracSo de outros leitores. 

o ^ 
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Mais uma vez gostaria de parabeniz6-Ios e felici- 
t£-los para que tenham sucesso c prosperidade. " 
Henrique Bergue dos Santos 
Rua Galvea Peixoto, 173 — Santo Amaro 
Sio Paulo - SP 

Caro amigo Henrique, muilo obrigado por nos 
dedicar urn passo ao avanco da informStica no 
Brasil. Como jci frisamos antes, nos proximos nu- 
meros publicaremos programas paraa linha APPLE, 
quanto a ideia de intercambio de programas e 6ti- 
ma, as nossas portas estao abertas, ou melhor, nos- 
sas p£ginas estao abertas para tal ideia, mas tudo 
depende dos amigos leitores, de qualquer forma 
esperamos sua colaboracao com seus programas, 

acreditamos que outros leitores tarnbem irao cola- 
borar, os quais publicaremos com todo carinho. 



DIGIKIT • DIGIKIT • DIGIKIT 



SEGUINDO A LINHA £ A FILOSOFIA COMERCIAL DA EDITORA FITTIPALDI DE. SEM- 
PRE COLOCAR AO ALCANCE DOS LEITORES MATERIAL SUFICIENTE PARA QUE SE 
POSSA COMPROVAR, ESTUDAR E ATE MESMO TIRAR PROVEITO DE FORMA DEFINITIVA 
DAS MATERIAS CONTIDAS NAS REVISTAS, A REVISTA K0FX * -.-^l LANCA NESTA 
EDICAO DOIS SENSACIONAlS KITS PARA MONTAR, KITS ESTES, QUE SERAO OS PRIMEI- 
ROS DE UMA GRANDE LINHA PRETENDIDA PELA 01RECAO DA EMPRESA E QUE. DE 
CERTOMODO VAOAQRADAR A MAIORIA DOS AMIGOS LEITORES, 

OS KITS SERAO SEMPRE COMERCIALIZADOS A PRECO COMPATlVEL COM A REALI 
DADE COMEnCIAL DA PRACA. E, VEND I DOS POR MEIO DE REEMQOLSO POSTAL PELA: 
DIGIKIT COMBRCIO E EXPORTACAO DE COMPONENTES ELETRONlCOS L TDA.. QUE £ UMA 
EMPRESA DO GRUPO FITTIPALDI, PORTANTO COM IDONEIDADE COMPROVAOA, 

MAO PERCA TEMPO. PREENCHA O CUPOM E FACA O SEU PEDIDO HOJE MESMO. 



AV. AMADOR 

BUENO DA 

VEIGA, 4.176 

- CEP 03852 - 

SAO PAULO 

SP 



SUPER FONTE *E** • ft^ftD 

PROJETADO ESPECIALMENTE PARA RESOLVER OS PROBLEMAS DE ALIMENTAqAO DO 

SEUi#/C/?0 OU VIDEO GAME DE QUALQUER MARCA. ^5 36.000.00 



TAPELOADER 
INCRIVEL SOLUCAO PARA GRAVACAO E 
REPPODUCAO DE PROGRAMAS EM FITA 
CASSETE PERMITINDO PASSAGEM DE FITA 
PARA FITA, MESMO EM PROGRAMAS FECHA- 
DOS. Cr$ 15500,00 






StM. DESEJO RECE8ER PELO REEMBOLSO POSTAL O KIT 
PELO QUAL PAGAREI A QUANTIA DE CrS 



MAIS DESPESAS POSTAIS. 



NOME 

ENDERECO N9 

8AIRRO CIDADE EST ADO . 

CEP hi... NOdo R. G 
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Neste jogo seu objetivo e acer- 
tar 12 rilvcs moveis no topo da 
tela, mas com tempo limitado, 
pois a cada tiro que der ira cres 
cer urna barreira da esquerda pa- 
ra a direita, a qual voce nao po- 
dera acertar, caso contra*rio per- 
dera", da mesma forma perdera\ se 
a barreira atingir o canto direito 
da tela. Os alvos devem ser alveja- 
dos no local exato, caso contr^- 
rio ele podera* se apagar. Cada vez 
que acertar um alvo apareceri 
urn ctfrao na diregao em que ele 
foi pego, que piscara no momen- 
to do acerto. Voce pode acertar 
alvos no mesmo local em que ja 
tinha sido pego um outro alvo. 

Seus controles sao: 

"5" (ESQUERDA) 

"8" (DIREITA) 

"0"(TIRO) 



Para "rodar" este programs 6 
necessirio, antes reservar um 
espaco no topo da membria di- 
gitando o programs a seguir: 



10 LET E = PEEK 16388+256' 

PEEK 16389 
20LETE=E-100 
30 POKE 16388,E-256*INT (E/ 

256) 
40 POKE 16389,INT{E/256) 
50 NEW 



Apos rodar o programa acima 
digite o programa principal que 
vem a seguir. 
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10 POKE 30000,42 

11 POKE 30001,12 
~ 12 POKE 30002,64 
U 13 POKE 30003,1 W 

14 POKE 30004,1 

15 POKE 30005.0 
O 16 POKE 30006,9 Q 

17 POKE 30007,229 

18 POKE 30008,6 

19 POKE 30009,31 

20 POKE 30010,126 

21 POKE 30011,35 

22 POKE 30012,86 - 
O 23 POKE 30013,119 \J 

24 POKE 30014,122 

25 POKE 30015,16 
f\ 26 POKE 30016,250 Q 

27 POKE 30017,193 

28 POKE 30018,2 
- 29 POKE 30019,35 
D 30 POKE 30020,35 

31 POKE 30021,32 

32 POKE 30022,239 
O 33 POKE 30023,201 M O 

100 LETAS=" 
110 PRINT A$ 
r\ 120 PRINT"(32graficoshiftQ)" Q 

^ 130 LETX=21 

140 LETY=13 

150 LETA=21 

U 160 LETPO=0 ^ 

170 LETW=0 

200 RAND USR 30000 
Q 210 LETA-20 O 

215 PRINTATX,Y;"H" 

220 LET Y-Y+(INKEY$-'8")- (INKEYS-"5' 
^ 230 IF Y<0THEN LET Y=0 

240 I F Y > 29 THEN LET Y=29 

250 IF INKEY$="0"THEN GOSUB 450 

400 GOTO 200 ^ 

O 450 LETW=W+1 {J 

460 IF W=30 THEN GOTO 850 

500 RAND USR 30000 
r\ 501 LETA=A-4 O 

510 IF A<0THEN PRINT AT A,W;CHR$ 128 

515 IF A<0THEN RETURN 
r ^ 520 PRINTATA,Y+1;"*";AT A,Y+1;" " f\ 

D 530 PRINT AT A-4.Y+1; ^ 

550 IF PEEK (PEEK 16398+ 256*PEEK 16399)=137 THEN GOTO 700 

560 IF PEEK (PEEK 16398+ 256*PEEK 16399)=128 THEN GOTO 900 
O 600 GOTO 500 O 

700 LETPO=PO+1 

720 PRINT AT A-1,Y+1;"$" (inverso) 

9 
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w 



\tr 



721 PRINT AT A-1 f Y+1;"$" 

722 PRINT AT 20,2;"ACERTOS : ";P 

723 IF PO=12 THEN GOTO 800 

725 PRINT AT A,W;CHR$ 128 

726 PRINT AT 1,0;"<32 grafico shift A) 

727 PRINT AT 1,0;"(32 grafico shift W)" 
730 RETURN 

800 PRINT AT 11,4;"VOCE MATOU NAMOSCA" 
810 PRINT AT 1,0;"(32 grafico shift A)" 
820 PRINT AT 1,0;"(32 grafico shift W)" 
830 GOTO 810 

850 PRINT AT 4,W;CHR$ 128 

851 PRINTAT11,5;"ABARREIRASE FECHOU" 
860 STOP 

900 PRINT AT 11,4;"VOCE BATEU NA BARREIRA" 
910 FOR F=0TO25 
920 NEXT F 

930 PRINT AT 12,8;'TENTE NOVAMENTE" 
940 FOR F-0TO25 
950 NEXTF 
955 CLS 

960 RUN 




COWTM m W T W M Ij* 



"•** Cr$l4000,00 
Mom^w Cr$2OO00,00 
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» w — 11.700,00 
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CrS5.000.00 
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""»»— • »m II Vo»i. s ■ . "JM 

WiaiiotbMiMiiDMuM 

&'•■ **.*•* •"> «*t»*. tonNeclo 
»• (xiuna imoitipi ■ Me... 

CrS 17.000.00 
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(!>■■» * Kiiri cam '»■ I'hlhlr ludoqiir 

* Of fell, ondf ■■ into* nfc> ■luanm. 
Cue ■ d>- .^..F*j,iJ.,rt l* iimotBII 
lidxd no rjrb, TlrlrocrlionKo 

CrS 5500,00 



Injelord* statu- ril iillmli 
■* Mfmoi am apMtafl umtm cam*: 

rMlo . MM* I? MfMlcM. .,„,.«- 

"/!*■ mHM* Me... IlKKlDUCa* 

umi *tia n i ■■■■■' 

10.000,00 
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Neste programa voce na pn- 
metra etapa se encontrara* no la- 
birinto das surpresas, no qual 
existem portas e muros. Nas por- 
tas e que se encontram as surpre- 
sas, que podem ser: 

1. Corror num F. 1. 

2. Esquiar na neve. 

3. Lutar contra os E. T. 

4. Ganhar bonus. 

5. Passar para outro labirinto 
mais repteto de portas e mu- 
ros. 

Caso voce bater num rnuro 
perderS bdnus. Ao entrar numa 
porta a que! levara" as corridas 
de F. 1, voce devera" escolher um 
carro de 1 a 6 que sera* seu carro 
na corrida, e torca para que ele 
nao quebre. Se por um acaso es- 
ta porta o levar para esquiar na 



neve, a unica coisa que deve fa- 
zer e desviar das Srvores (que sao 
simbolizadas por espacos inver- 
sos) por um certo tempo. Se essa 
mesma porta o levar para lutar 
contra os E. T., devera evitar 
que uma nave que vem descendo 
na tela atinja o solo, para isso vo- 
ce possui um canhao movel que 
lanca projeteis quando assim o 
quiser. Caso entre numa porta 
que Ihe de bonus, simplesmente 
esse bonus sera* acrescentado ao 
seu bonus geral sem alterar qual- 
quer coisa, e por ultimo, entrar 
numa porta que o leve a outro la- 
birinto, este se encontrar^ mais 
repleto de portas e muros, tam- 
b6m sem alterar qualquer outra 
coisa. 

No labirinto voce se movimen- 
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tara* sozinho da esquerda para a 
direita, e quando atingir o lado 
direito, voltara" ao lado esquerdo. 
Seus unicos controles sao o "6" 
(para baixo) e o "7" (para cirna). 

Ja numa corrida de F. 1 ape- 
nas tera" que escolher um carro. 

Para esquiar na neve voce pos- 
sui os controles: "5" (esquerda) e 



"8" (direita). 

Para lutar contra os E. T. seus 
controles sao: "5" (esquerda), 
"8" (direita) e "0" (tiro). 

Seu objetivo maior e fazer 
2500 pontos, caso ultrapasse a 
-200 perdera. 

BOA SORTE. E cuidado com 
as surpresas. 



":PO 



5 RAND 

30 POKE 16418,0 

40 LET PO-0 

50 FAST 
100 FOR F=1 TO 65 
200 LETY=INT(RND*22) 
300 LETX=INT(RND*32) 
400 PRINT AT Y,X;CHRS 137 
500 NEXT F 
510 FOR F=1 TO 15 
520 LETY=INT(RND"22) 
530 LETX=INT(RND*32) 
540 PRINT AT Y,X;CHR$ 143 
550 NEXT F 
600 SLOW 

610 PRINT AT 22,20;"BONUS: 
700 LETA=11 
800 LETB=0 

900 PRINTATA,B;"A";AT A,B;" " 

901 IF PO < = -200 THEN GOTO 3900 

902 IFA<0THEN LET A=0 

904 IF A>21 THEN LETA=21 

905 IF PO>= 2500 THEN GOTO 6000 

910 LETA=A+(INKEY$="6") -(INKEY$-"7") 

920 LET B=B+1 

930 PRINT AT A,B; 

940 LET P=PEEK 16398+256*PEEK 16399 

950 IF PEEK P=137 THEN GOSUB 2000 

955 IF PEEK P-143 THEN GOTO 3000 

960 |FB=31THEN LET B=0 

965 GOTO 900 
2000 PRINT AT 22,6;"VOCE BATEU NUM MURO" 
2005 LETPO=PO-10 
2010 FOR F-0TO25 
2020 NEXTF 

2025 PRINT AT 22,26;"(cinco espacos)" 
2030 PRINT AT 22,6? 

2040 FOR F=0TO25 

2050 NEXTF 

2055 PRINT AT 22,7;" 

2060 RETURN 

3000 POKE 16418,0 

3010 LETO=INT (RND*4)+1 



E PERDEU BONUS: "PO 



12 espacos) BONUS: 
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3020 IF 0-0 THEN GOSUB 3700 

3030 IF 0=1 THEN GOTO 3500 

3040 IF 0=2 THEN GOTO 4000 

3050 IF 0=3 THEN GOTO 50 

3060 IF 0=4 THEN GOTO 5000 

3065 GOTO 900 

3500 CLS 

3510 POKE 15418,2 

3520 FOR F-0TO21 

3530 PRINT "(32 modo grafico shift D)" 

3540 NEXTF 

3550 PRINT AT 11,0;" AGORA VOCE IRACORRER NUM F.I;" (em inverso) 

3560 PRINT AT 12,0;" ESCOLHA SEU CARRO: 1-2-3-4-5-6 " 

3565 FOR F=0TO25 

3566 NEXT F 
3580 CLS 

3582 FOR F=2T0 21 

3584 PRINT AT F,0;"(24 modo grafico shift A) (1 modo grafico shift T) (7 espacos 

em inverso) 

3586 NEXT F 

3590 DIMA(6] 

3595 PRINT AT 0,0;" 1: LARGADA BONUS: (+/-) " (inverso) 

3600 RAND 

3610 INPUT B 

3615 LETT=INT (RND"6)+1 

3620 FOR F=T TO 6 

3630 PRINT AT F*3+3,A(F);" (1 espaco inverso)";CHR$ (F+28) 

3640 LETA(F)=A(F)+INT (RNDM) 

3645 IF A(B)=A(F) AND A(F) >= 25 THEN GOTO 5500 

3650 IF A(F)>=25THEN GOTO 3800 

3660 NEXTF 

3680 LETT=1 

3690 GOTO 3620 

3700 LETPO=PO+100 

3710 PRINT AT 22,19; "BONUS: ";P0 

3720 RETURN 

3800 CLS 

3810 LETPO=PO-50 

3815 PRINT AT 10,1;"O CARRO VENCEDOR FOI NUMERO";F 

3820 PRINT AT 11,0;"VOCE PERDEU A CORRIDA E BONUS DE:" 

3830 PRINT AT 12,10;PO 

3832 FOR F=0TO25 

3833 NEXT F 
3835 POKE 16418,0 
3837 CLS 

3840 GOTO 50 

3900 POKE 16418,2 

3910 CLS 

3920 PRINT AT 11,1;"V0CE PERDEU. ULTRAPASSOU A -200" 

3930 FOR F=0TO25 

3940 NEXT F 

3950 CLS 

3960 PRINT AT 11,1:"DESEJA JOGAR NOVAMENTE (S/N) V 
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3970 INPUT A$ 

3980 IF A$="S" THEN GOTO 3987 

3985 IF A$="N" THEN STOP 

3987 CLS 

3988 RUN 

4000 CLS 

4001 PRINT AT 11 f 0;"AGORA VOCE LUTARA CONTRA OS E.T." 
4005 PRINT AT !2,6;*'AGUARDE UM INSTANTE." 

4010 FOR F=0TO25 
4020 NEXTF 

4100 CLS 

4101 LETX=21 

4110 LETY=14 

4111 LETS-INT (RND-21) 
4115 FAST 

4120 FOR F=0TO703 

4130 PRINT CHR$ 128; 

4140 NEXTF 

4150 SLOW 

4160 FOR Q=0TO21 

4165 LETS=S+INT (RND"3)-1 

4166 PRINT AT Q,S;" "; AT Q,S;" 
4169 PRINT AT X,Y;" A " 

4190 IF Y<0THEN LET Y=0 

4192 IF Y > 29 THEN LET Y= 29 

4200 LETY=Y+{INKEY$="8")-(INKEY$='*5") 

4210 IF IN KEY$="0" THEN GOTO 4400 

4220 NEXT Q 

4400 FOR E=21 TO QSTEP-1 

4410 PRINT AT E,Y;" "; AT E,Y;" 

4420 IF E=GAND Y=S THEN GOTO 4470 

4430 NEXT E 

4435 CLS 

4440 LETPO=PO-50 

4450 PRINT AT 11,0;"VOCE ERROU E SEU BONUS E: "PO 

4455 FOR F=0TO25 

4456 NEXTF 

4457 CLS 

4458 POKE 16418,0 
4460 GOTO 50 

4470 LETPO=PO+100 

4475 CLS 

4480 PRINT AT 11,0;'*PARABENS.SEU BONUS E DE "; PO 

4482 FOR F=0TO25 

4484 NEXTF 

4486 CLS 

4490 GOTO 50 

5000 CLS 

5005 POKE 16418,2 

5010 PRINT AT 11,0;"AGORA VOCE VAI ESQUIAR NA NEVE" 

5011 FOR F=0TO25 

5012 NEXT F 
5015 CLS 



o 
o 
o 
o 
o 
o 
o 
o 
o 

JO 

o 
o 

o 
o 
o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 




5020 DIM H$(6,24) 

5030 LETX-11 

5040 LET Y- 12 

5050 LETH$(1)= 

5110 LET H$(2)= 

5120 LETH$(3]= 

5130 LETH$(4)= 

5140 LET H$(5)= 

5150 LETH$(6)= 

5155 FOR J=0TO30 

5160 LETS=INT (RND # 6)+1 

5165 SCROLL 

5170 PRINT AT 21,3;H$(S) 

5180 PRINT ATX, Y;" A" 

5190 IF Y<2THEN LET Y=2 

5200 IF Y> 27 THEN LET Y=27 

5210 LET Y=Y+{INKEY$="8") -(INKEY$="5") 

5215 PRINT ATX+1.Y: 

5220 LET P=PEEK 16398+256* PEEK 16399 

5230 IFPEEKP=128THEN GOTO 5450 

5400 NEXT J 

5405 LETPO=PO+100 

5410 PRINT AT 11,0;*'PARABENS;VOCE AGORA TEM ";PO 

5420 FOR F=0TO40 
5430 NEXT F 

5435 CLS 

5437 POKE 16418,0 

5440 GOTO 50 

5450 CLS 

5460 LETPO=PO-50 

5470 PRINT AT11,1;"V0CE CAIU E PERDEU;BONUS: ";PO 

5471 FOR F=0TO25 

5472 NEXTF 

5473 CLS 

5474 POKE 16418,0 

5475 GOTO 50 

5500 LETPO=PO+100 

5510 CLS 

5520 PRINT AT11,5;"PARABENS VOCE VENCEU." 

5530 PRINT AT 12,9;"BONUS: ";PO 

5531 FOR F=0TO25 

5532 NEXTF 

5535 CLS 

5536 POKE 16418,0 
5540 GOTO 50 
6000 POKE 16418,2 

6010 PRINT AT 11,0;"PARABENS. VOCE CUMPRIU A MISSAO." 
6100 STOP 
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Agora voce sera um autentico 
corredor de Formula 1, Neste jo- 
go voce passara por tuneis, obs- 
taculos, etc. 

Ele possui quatro fases: na pri- 
meira voce terS que percorrer 
100 km numa pista sem obst^cu- 
los; na segunda tera* que percor- 
rer 100 km num tunel; na tercei- 
ra enfrentara obstSculos e final- 
mente na quarta enfrentara obs- 



taculos num tunel e por final a 
reta de chegada. Cuidado para 
na*o sair da pista, caso contrSrio 
ira bater no GUARD-RAIL e sair 
da prova. 

Seus controles sao: 

"5" (ESQUERDA) 

"8"{DIREITA> 

BOA SORTE (quem sabe se 
daf nao saira outro Nelson Pi- 
quet). 
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(1 espaco inverse)' 



3 FOR F=0TO20 

4 PRINT AT F f 11;"(espaco inverso) (7 grafico shift H) 

5 NEXT F 

6 PRINT AT21,12;"{1 espaco inverso) (5 grafico shift H) (1 espaco inverso)";AT 
11,12;"<7 grafico shift T>" 

7 PRINTAT11,0;"LARGADA:" 
PRINT AT 10,15;'*H" 
FORF=9TO0STEP-1 
PRINT AT 11,9;F 
NEXTF 
LET B= 100 
LETA=1 
LETC=10 
LETW=15 
LETN=15 
LETE=13 
LETP=1 
LETJ=15 
SCROLL 
LETB-B-1 

IF B<1 THEN GOTO 300 
PRINT TAB E;"{1 espaco inverso) (3 grafico shift H) (lespaco inverso)" 

IF B/25=INT<B/25)THEN PRINT AT21,0;"TUNEL:"; B 

LETE=E+RND*2*(NOT E> 18)-RND"2* (NOT E < 6) 
120 PRINT AT C-1,N;"(1 grafico shift A)" 
130 PRINT AT C,W;"H" 

PRINT AT C+1,W; 

IF PEEK (PEEK 16398+ 256*PEEK 16399)=128 THEN GOTO 200 

LET N=W 

LET P=P+1 

LETW=W+(INKES="8"|-(INKEY$="5") 

GOTO 90 

PRINT AT 14,3;"VOCE BATEU NO GUARD-RAIL" 

FOR F=0TO25 

NEXTF 

CLS 

PRINT AT 11,8;"TENTE NOVAMENTE" 

PRINTAT12,6;"VOCE PERCORREU: ";P;" KM." 

FOR F=0TO25 

NEXTF 

CLS 

RUN 

LET B=B+1 

IF B> 100THEN GOTO 410 
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11 

15 

20 

30 

50 

60 

70 

80 

85 

90 

95 

96 

100 

101 

110 



140 
150 
160 
170 
180 
190 
210 
220 
230 
240 
250 

252 

260 

270 

280 

290 

300 

305 

310 PRINT TAB E;"{1 grafico shift A) {3 espacos inverso) (1 grafico shift A| 

320 LET E=E+RND*2*(NOT E > 18)-RND*2*(NOT E >6) 

330 PRINT AT C-1,N;"(1 espaco inverso)" 

340 PRINT AT C,W;"H" (inversol 

350 PRINT AT C+1,W; 

360 IF PEEK (PEEK 16398+256*PEEK 16399)=8 THEN GOTO 200 

370 LETN=W 

380 LETP=P-M 

390 LETW=W+(INKEY$="8")-(INKEY$="5") 
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395 SCROLL 
400 GOTO 300 
410 LET B=21 
420 SCROLL 

425 LET B=B-1 

426 I F B < 1 THEN GOTO 445 
430 PRINT AT C-1.N;" " 

435 PRINT AT C,W;"H" 

436 LETW=W+(INKEY$="8")-(INKEY$="5"I 

437 LETN=W 

438 PRINTTAB2;" (28 espacos)" 
440 GOTO 420 

445 LETB=100 

450 LETB=B-1 

460 I F B < 1 THEN GOTO 600 

470 SCROLL 

480 PRINT TAB 13;"|1 espaco inverso) (5 grafico shift H) (1 espaco inversol" 

490 PRINT AT 21, J;" A" 

495 IFB/25=INT(B/25)THEN PRINT AT 21,0;"TUNEL:"; B 

500 LETJ=J+RND*3*(NOTJ>18)-RND*3 # (NOTJ< 14) 
510 PRINT AT C-1,N;"(1 grafico shift H)" 

520 PRINTATC,W;"H" 

530 PRINT AT C+1.W; 

540 IF PEEK (PEEK 16398+ 256*PEEK 16399)=128 THEN GOTO 200 

550 IF PEEK (PEEK 16398+256 # PEEK 16399)=38 THEN GOTO 750 

560 LETN=W 

570 LETP=P+1 

580 LET W=W+(INKEY$="8")-(INKEY$="5") 

595 GOTO 450 

600 LETB=B+1 

610 IF B<100THENGOTO 850 

620 PRINTTAB 13;" (1 grafico shift A) (5 espacos inverso) (1 grafico shift A)" 

630 PRINT AT 21,J;"A" (inverso) 

640 LETJ=J+RND*3*(NOTJ > 18)-RND*3*(NOT J < 14) 

650 PRINT AT C-1,N:"(1 espaco inverso)" 

660 PRINT AT C,W;"H" (inverso) 

670 PRINT AT C+1.W; 

680 IF PEEK (PEEK 16398+ 256"PEEK16399)=8 THEN GOTO 200 

690 IF PEEK (PEEK 16398+ 256*PEEK 16399)=166 THEN GOTO 750 

700 LETN=W 

710 LETP-P+1 

720 LETW=W+(INKEY$="8")-(INKEY$="5") 

725 SCROLL 

730 GOTO 600 

750 PRINT AT 11,0;"VOCE BATEU. E PERCORREU: ";P 

760 STOP 

850 LETB=B-1 

870 IF B<80 THEN GOTO 1000 

880 PRINTTAB 13;"(1 espaco inverso) (5 grafico shift A) (1 espaco inverso)" 

890 PRINT AT C-1.N;" (1 grafico shift H)" 

900 PRINT AT C,W;"H" 

920 LET N-W 
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Este jogo o levari para as mu- 
ralhas da China. U voce tera que 
derrubar essa muralha, isso na 
primeira etapa, pois, ap6s ter ul- 
trapassado a muralha tera* que pe- 
gar quatro senhas em lugares di- 
ferentes no meio de um campo 
de concentracao sendo bombar- 
doado. Para eliminar a muralha 
voce tera" um tempo limitado, de- 
pois para pegar as senhas devera 



tomar cuidado com os buracos e 
tamb6m com as bombas que 
caem no campo. 
"BOACHORTE NE" 

Seus controles sao os mesrnos 
do joystick. 

"5" (ESQUERDA) 

"8" (DIREITA) 

"6" {PARA BAIXO) 

"7" (PARACIMA) 

"0" {TIRO) 
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7 POKE 16418,0 

8 RAND 
10 SLOW 
15 LETA=0 

LET U=30 

LET K-1 

LET I-0 

LET B=27 

LET Y=0 

LETX=14 

LET W=0 

LET S=0 

FOR F=1 TO 30 

LETS=INT (RND*20) 

LETW=INT(RND*30) 

PRINT ATS,W;CHR$8 

NEXTF 

FOR F-2TO 20 

PRINT AT 0,F;CHR$ 128 

PRINT AT 2,F;CHR$ 128 

NEXT F 

FOR F=0TO20 
110 PRINT ATF,30;CHR$5 
115 PRINT AT F,27;CHR$ 128 
120 NEXTF 

GOTO 300 

LETY=I 

PRINT AT K,Y+1;">";AT K,Y-1;" " 

IFY>30THEN RETURN 

LET Y=Y+3 
PRINT AT K,Y; 

LETP=PEEK 16398+256" PEEK 16399 

IF PEEK P-8 THEN GOTO 280 

IF PEEK P=128 THEN GOTO 1000 

IF PEEK P=5 THEN RETURN 
270 GOTO 201 
280 LETU=U-1 
285 PRINT AT K,Y;" 
300 LETI=0 

305 IF U<10AND U>8 THEN PRINT AT 22,9; 
310 PRINT AT 22,16VELIMINADOS:";A 

315 PRINT AT 22,2;"TEMPO: ";U 
FOR L-0TOU 
LETS-INT (RND"20)+1 

LETW-INT (RND*26) 

PRINT AT K,I;"=>";AT K-1,1;" ";AT K+1,l;' 

LET K=K+{INKEYS-"6") -(INKEY$-"7") 

PRINTATS,W;CHR$8 

IF K < 1 THEN LETK=1 

IF K> 20 THEN LET K= 20 

IF INKEY$="0"THEN GOSUB 200 

NEXT L 

LETU=U-1 
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150 

200 

202 

204 

206 
210 

220 

260 

265 

267 



350 
355 
356 
360 
380 
385 
390 
400 

410 
500 
510 



520 PRINT AT 22,9;U 
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545 IF U=0 THEN GOTO 600 

550 GOTO 350 

600 CLS 

610 PRINT ATI 1,7;"SEU TEMPO ACABOU" 

620 STOP 
1001 PRINT AT K,B;":" 
1010 LETA=A+1 
1020 IF A=19 THEN GOTO 1200 
1100 RETURN 
1200 CLS 

1210 POKE 16418,0 
1220 PRINT AT 1 1,2;"PARABENS; ELIMINOU O MURO' 

1230 DIMA${5,30) 

1240 LETA$<1)=" 

1250 LETA$<?)=" 

1260 LETA$(3>=" ~Tl ■ I I 

1270 LETA$(4)="[ 

1280 LETA$(5)=" 

1290 FORF=0TO21 

1300 LETOINT (RND # 5}+1 

1310 PRINT AT F,0;A$(C) 

1320 NEXTF 

1321 FORF=0TO6 

1322 PRINT AT INT (RNDM9) +1JNT (RND*28)+1; CHRS8 

1323 NEXTF 

1330 LETK= 11 

1331 LET l=0 

1332 LETA=0 

1336 PRINT AT K,I;"=";AT K,l;" " 

1338 PRINT AT INT (RND*19) +1JNT |RND*28)+1; CHRS 23 

1340 IF INKEY$="6"THEN LET K=K+1 

1345 IF INKEY$="7"THEN LET K=K-1 

1350 IF INKEY$="8"THEN LET 1=1+1 

1355 IF INKEY$="5"THEN LET 1=1-1 

1360 IF K<0THEN LET K=0 

1370 IF K> 21 THEN LET K-21 

1380 IF I <0THEN LET l=0 
1390 IF I > 30 THEN LET 1=30 
1400 PRINT AT KJ; 

1410 LET P=PEEK 16398+256* PEEK 16399 
1420 IF PEEK P=23 THEN GOTO 1500 
1425 IF PEEK P=128 THEN GOTO 1571 
1428 IF PEEK P=8 THEN GOSUB 1450 
1430 GOTO 1336 

1450 LETA=A+1 

1451 POKE 16418,0 

1455 IF A=4 THEN GOTO 1600 

1460 PRINT AT 22,20;"SENHA: ";A 

1470 RETURN 

1500 CLS 

1510 PRINT AT 11, 2;"VOCE FOI PEGO POR UMA BOMBA" 

1520 FOR F=0TO28 

1530 NEXTF 
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1540 PRINT AT 11,0;" TENTE NOVAMENTE " 

1550 FOR F=0TO28 
1560 NEXTF 
1565 CLS 

1570 RUN 

1571 CLS 

1572 PRINT AT 11,5;"VOCE CAIU NUM BURACO" 

1573 FOR F=0TO28 

1574 NEXTF 

1575 PRINT AT 11,5;" TENTE NOVAMENTE 

1576 FOR F=0TO28 

1577 NEXTF 

1578 CLS 

1579 RUN 

1600 PRINT AT 11, 1;"PARABENS. VOCE CUMPRIU A M1SSAO." 
1610 STOP 
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Esta secao tratara* de explicar 
na pratica como eiaborar urn pro- 
grama, ou melhor, como enten- 
der os truques, f6rmulas matema'- 
ticas, etc. de um programa. Neste 
numero tratamos de um jogo de 
acao, o qual estudaremos linha 
por linha. Nele encontraremos 
movimentos, placar, o uso das te- 
clas num programa e outras coi- 
sas importantes. L6gico, nao se 
trata de um jogo de extrema acao 
e dificuldade, mas nosso objetivo 
e levar gradativamente ao conhe 
cimento dos leitores, como eia- 
borar um programa, especialmen- 
te aos principiantes. 



O jogo consiste dc uma nave 
amiga que no comeco do jogo se 
encontra no centro abaixo na te- 
la, e uma nave inimiga quedesce 
aleatoriamente pela tela, a qual 
voce deve evitar que atinja o so- 
lo, para evitar a nave inimiga vo- 
ce possui os tiros executados ca- 
da vez que a tecla for pressio- 
nada. Sua nave se movimenta 
tanto para a esquerda como pa- 
ra a direita, usando as teclas 5 
(esquerda) e 8 (direita). Digite- 
o e depois estude com calma, e 
atraves disso tente criar outros 
programas, ou mesmo incremen- 
tar mais este mesmo programa. 



10 POKE 16418,0 

20 LETX=21 

30 LETY=14 

40 LETS=0 

45 LETPO0 

50 FOR F=0TO21 

60 PRINT AT F,0;"(32 grafico shift A)" 

70 NEXT F 

80 FOR U=0TO21 

90 LETS=S+INT(RND*3} 
100 PRINT AT U,S;"<=>" (inverso) 
110 PRINT AT U,S;" (3 grafico shift A)" 
120 PRINT AT X,Y;"(1 grafico shift A) X (1 grafico shift A)" 

130 IF INKEY$="8"THEN LET Y=Y+1 
140 IF INKEY$="5"THEN LET Y=Y-1 



o 
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150 IFINKEY$="0"THEN G0TO21G 






160 NEXTU 








170 LET PO=PO-10 








180 IF PO-50 THEN GOTO 320 








190 PRINT AT22,18;"PONTOS: " 


;PO 






200 GOTO 80 








210 PRINT AT U,S;"< = >" (inverso 






215 FORT=20TOUSTEP-1 








220 PRINT AT T,Y;"(1 grafico shift A}*{1 grafico shift A)" 


230 PRINTATT,Y;"(3 grafico shift A) 


a 




240 IFT=UAND Y=STHEN GOTO 270 




250 NEXTT 








260 GOTO 170 








270 LETPO=PO+10 








280 1 F PO < 1 ANDPO-1 THEN PRINT AT 22,26;" 


290 PRINT AT22,18;"PONTOS: 


';PO 




300 IF PO=100 THEN GOTO 340 








310 GOTO 80 








320 PRINT AT 11,0;"VOCE PERDEU 


ULTRAPASSOU A -50." 


330 STOP 








340 PRINT AT 1 1,0;"PARABENS. 


VOCECUMPRIU SUAMISSAO" 


350 STOP 








ComentSrios 


1 Libera as duas linhas inferio- 




130 


Soma 1 a Y cada vez que a 


res. 






tecla 8 for pressionada, fa- 


20 Coordenada da linha da na- 






zendo com que a nave ami- 


ve amiga (X). 






ga se movimente para a di- 


30 Coordenada da coluna da 






reita. 


nave amiga (X). 
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Diminui 1 de Y cada vez 


40 Coordenada da linha da na- 






que a tecla 5 for pressiona- 


ve inimiga que na linha 90 






da, fazendo com que a nave 


ira variar entre 0e 2. 






amiga se movimente para a 


45 VariaVel dos pontos. 






esquetda. 


50 ate 70 — Desenham a tela. 




150 


Leva ao looping de tiro cada 


80 Looping principal que per- 






vez que a tecla for pressio- 


mitira animacao na tela. 






nada. 


90 Coordenada da linha da na- 




160 


Fecha o looping principal. 


ve inimiga ja" em variacoes 




170 


Diminui 10 pontos no esco- 


entre e 2. 






re. 


100 Imprime na linha U e colu- 




180 


Identifica quando o escore 


na S a nave inimiga. 






chegar a -50. a -50. 


110 Imprime na linha U e colu- 




190 


Imprime os pontos no canto 


na S o caracter da tela apa- 






direito inferior da tela. 


gando a nave inimiga, para 




200 


Retorna ao looping princi- 


evitar que a nave fique im- 






pal. 


pressa permanentemente 




210 


Imprime a nave inimiga 


dentro do looping. 






apos o tiro, caso esta linha 


120 Imprime na linha X e colu- 






nao existisse, apos o tiro a 


na Y a nave amiga. 






nave nao apareceria na tela. 



o 
o 
o 
o 
o 
o 
o 
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o 
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215 Looping de tiro. 

220 Imprime na linha T e coluna 

Y o tiro representado pelo 

asterisco. 

230 Apaga a impressao do tiro. 

240 Define que quando a linha 
T for igual a linha U e a co- 
luna Y for igual a coluna S 
saltara para a linha 270 

250 Fecha looping de tiro. 

260 Salta para as linhas de dirni- 
nuicao de pontos caso errar 
o tiro. 

270 Soma 10 pontos ao escore. 

280 Quando o placar atingir 
ira" imprimir tres espapos no 
local dos pontos, caso con- 



traVio, quando o placar esti- 
ver negativo ira imprimir 
um sinal negativo, que quan- 
do voltar a ser positivo dei- 
xara na tela um indeseja- 
vel. 

290 Imprime o novo escore. 

300 Define que quando o placar 
atingir a 100 pontos saltara' 
para a linha 340. 

310 Retorna ao looping princi- 
pal. 

320 Executada quando PO=-50 
definida pela linha 180. 

340 Executada quando PO=100 
definida pela linha 300. 




O 

o 

o 
o 

o 

o 
o 
o 
o 

o 
o 
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o 
o 
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Este programa do SELETOR e 
so para ser usado no "BASIC 
DISCO". Ele e feito para ler os 
programas do diretorio do disco 
e dispo-los numerados ordenada- 
mente, assim, o usuario deste 
programa podera selecionar uma 
opc§o e este sera chamado auto- 
maticamente. Possui, porem, cer- 
tas restricoes: 1) So podera ser 
usado no operacional "NEW- 
DOS"; 2)Todos os programas de- 
vera*o estar divididos apenas em 
"/BAS" ou "?CND" e e obriga- 
torio o uso de uma destas duas 
especificacoes para o nome do 
programa; 3) Como o seletor 
/BAS devera ser ativado atraves 
da funcao "AUTO", ela deve ser 
especifica - > AUTO BASIC run 



"SELETOR/BAS". 

Este programa e uma adapta- 
pfio de urn anterior, escrito em 
junho/83 por Pierre Benassi, 
mas as adaptacoes foram tantas 
que se ele o visse agora, prova- 
velmente nao o reconheceria. 

Para programas compilados 
que necessitam de outro para 
roda'-los, apenas e necessa>to 
acrescentar as linhas: 

494 N$="NOME DO PROGRA- 
MA QUE EXECUTA O 
PROGRAMA OBJETO" 

495 IF AE$(A)- "COM" THEN 
M$="9"+N$+M$+:CMDM$ 

mas para isso, tais programas de- 
vem ter a designacao /COM. 



80 

90 

100 



10 CLEAR 1000 

20 CLS 

30 CLEAR 20000 

40 DEFINTI-N 

50 DIM AN$(1000),AE$(1000), AD$(1000),NL$(100),NF$ (100) 

60 D$="1" 

70 L=1 
S$="N" 
|$="S" 

ON ERROR GOTO 520 
110 OPEN"R", V'DIR/SYS. FN47:"+D$ 
120 FIELD 1,208 AS DU$,B AS NM$ 
130 GET 1,1 
140 ND$= NM$ 
150 PRINT ND$ 



160 Q0$=CHR$(191)+STRING$ (62,131 )+CHR$(191) 

170 Q1$=CHR$(191)+STRING$ (62,32)+CHR$(191) 

180 G2$=CHR$(191)+STRING$ (62,176) 

190 PRINTQ0$;Q1$;Q1$;Q1$;Q1$;Q1$;Q1$;Q1S;Q1$;Q1$;Q1$;Q1$;G1$;Q2$; 

CHR$( 191); 

200 FOR l=0TO7 

210 FIELD 1,{l*32) AS ST$, 1 AS T$(l),4 AS DV$(I), 8 AS NA$(I), 3 AS NE 

$(l) 

220 NEXT I 

230 FOR J= 3 TO 10 

240 GET 1 J 

250 FOR l = 0TO7 

260 K = ASC (T$(l)) 

270 IFK=0ORK>95THEN 410 

280 IF K<64 THEN 310 

290 IFS$="N"GOTO410 ELSE 350 



o 
o 
o 
o 
o 
o 
o 
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^ 300 IF K-INT(K/16) * 16>7 THEN 310 ELSE 350 W 

310 IF l$ = "N" THEN 410 

320 AN$ (N) = NA$(I) 
U 330 AE$(N) = NE$(I) Q 

340 AD$(N)= ND$ 

350 PRINT@15 f "* * = -SE LETO R - = * *"; 
O 360 IF N>- 19PRINT@(N-17)*64+40,N;**-";AN$(N);"/"; AE$(N); Q 

370 IFN> = 9 ANDN<18 PRINT<£>(N-7)*64+20,N;"-";AN$(N};'7"; 

AE$(N); 

O 380 IF N<9PRINT@(N+2)*64+1,N;"~";ANS(N);"/";AE$ (N); Q 

390 N=N+1 

400 IF N> 1000 THEN PRINT "BUFFER CHEIO" GOTO 510 
Q 410 NEXT I p. 

420 NEXT J ^ 

430 PRINT@13"64+1," ";: INPUT'QUAL A OPCAO "; A 

r\ 440 FORT=1 TO LEN |AN${A)) ^ 

^ 450 AU = INSTR(AN$(A), " ") vJ 

460 IF AU>0THEN AN$(A)= LEFT$(AN$(A),AU-1) 

-. 470 ZZ$-AN$(A) 

U 480 M$=ZZ$+'7"+AE$(A) O 

490 CLOSE 

500 IF AE${A)="CMD"THEN M$="S=" +M$;CMDM$ 

O 510 IF AE$(A)="BAS"THEN RUN MS Q 

520 IF ERR= 114THEN RESUME NEXT 

530 IF ERR/2+1=67THEN MS= ZZ$+'7''+''CMD'*:RESUME: GOTO 490 

r\ 540 ON ERROR GOTO 10 f-x 

550 END ^ 

560 LPRINTCHR$ (11) 

^ 570 LPRINT"LISTAGEM POR"; T$ 

^J 580 LPRINT O 

590 RETURN 

600 END 

O O 

O I RESERVE DESDE JA, NO SEU JOR- O 

NALEIRO, O PROXIMO NllMERO DE 

o DIVIRTA-SE COM A ° 

° ELETRflMCfl ° 

O projetos faceis, jogos, utilidades, pas- q 

satempos, curiosidades, dicas, infor- 

n magoes... NA LINGUAGEM QUE VOCE 

— -^ -^ — ENTENDE! - - 
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Volte aos tempos de Nero 
usando numeros romanos, este 
programa serve para converter 
qualquer numero entre e 3999 
na escrita romana, e muito inte- 
ressante saber por exemplo, a 
data de seu aniversario em nume- 



ros romanos, uma coisa i cena, 
que vai ser urn "baita numerao" 
vai. Mostre para seu pai a idade 
dele em escrita rornana, tenho 
certeza que quando eie ver dira 

que nao e* tao velho assim. 



100 , PROGRAMA PARA CONVERSAO DECIMAL-* ROMANO 
110 , PARATRS-80 MODELOS I E III E COMPATIVEIS 

120 AUTOR: JOSE MANUEL ONETOYVILA 

130 , 

140 DATA I, II, III, IV, V, VI, VII, VIII, IX, X, XX, XXX,XL, L, LX, LXX 

150 DATA LXXX, XC, C, CC, CCC, CD, D, DC, DCC, DCCC, CM, M, MM, MMM 

160 FOR 1=1 TO 9 

170 READUS(I) 

180 NEXT I 

190 FOR 1=1 TO 9 

200 READDS(t) 

210 NEXT I 

220 FOR 1=1 TO 9 

230 READC$(I) 

240 NEXT I 

250 FOR 1=1 TO 3 

260 READ M$(l) 

270 NEXT I 

280 CLS 

290 INPUT"DIGITEUM NUMERO ";NS 

300 IFVAL(N$)<0ORVAL <N$) > 3999 GOTO 280 

310 PRINT 

320 PRINT 

330 NO$=RIGHT$("0000"+N$,4) 

340 FOR 1=1 TO 4 

350 Nil) = VAL(MID$(NO+-,l, 1J) 

360 NEXT I 

370 RO$=M$(N{1)) + C$(N{2))+DS(N(3)) + U$(N(4)) 

380 PRINT RO$;" E COMO OS ROMANOS ESCREVIAM O NUMERO ";NS 

390 PRINT 

400 PRINT 

410 INPUT "OUTRO NUMERO ";R$ 

420 R$= LEFTS{R$,1) 

430 IF R$="S" GOTO 280 

440 END 



O 
O 
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Para voce que adora arriscar 
um joguinho na loto eis aqui sua 
chance de ganhar sem fazer for- 
ca, apesar que jogar na loto s6 re- 
quer forca do "bolso" mas en- 
fim... 

Esse programa sortei? aleato- 
riamente ate 200 cart6es da loto, 
nao permite que saiam cartoes 
iguais, grava os cartoes e os con- 



fere posteriormente (so que 
quem vai ganhar e voce), impri- 
me-os para melhor visualizacao 
(ja* pensou voce ganhar e depois 
s6 ficar "curtindo" o cartao na 
tela). 

Vale a pena tentar, pois ele 
ja* deu duas quadras para seu 
criador. 

BOASORTE. 






10 CLEAR 1000 :DIMS(200, 15):RANDOM:CLS 

20PRINT@22, "PARAJOGO DA LOTO"; 

25 PfHNTVI * 64+22, STRINGS (17,"*"); 

30PRINT@2*64+22, "OPERACOES"; 

40PRINT<®4 # 64+22, "SORTEI O"; 

50PRINT@6*64+22, "CONFERIR"; 

60PRINT<a>8"64+22, "GRAVAR CARTOES"; 

70PRINT<?10*64+22, "CARREGAR CARTOES"; 

80 PRINTC1 2*64+22, "IMPRESSAO DOS CARTOES"; 

90 N=4 
100 IF N> -13,PRINT@(N-1)*64+15, " ";:GOTO 90 
110 IF N <=3,PR|NT@(N+1)' 64+15," ";:N=12:GOTO 100 
120PRINTCN*64+15, "= ^>"; 
130 A$=INKEY$:IF A$=" " GOTO 130 

140 IF A$=CHR$(91),PRINT(«N*64+15, " ";:N=N-2: GOTO 100 
150 IF A$=CHR$(10),PRINT@ N*64+15, " ";:N=N+2: GOTO 100 
160 IF A$-CHR$(13), H=N-3: ON H GOTO 170, ,350, , 500, , 580, . 700 
170 CLS 

180 INPUT "QUANTOS CARTOES - MAX DE 200";A 

190 IF A > 200, GOTO 180 

200 INPUT "QUANTAS DEZENAS-MIN.de 5 /MAX. DE 10";B 

210 IF B<5 0R B>10,GOTO 200 

220 FOR 1=1 TOA 

230 PRINT 

240 FORC=1 TOB 

250 S(I,C}=RND(100) 

260 D-S (I, C) 

270 IF C=1, GOTO 310 

280 FORT=1 TOC-1 

290 IF D=S(I,T), GOTO 250 

300 NEXTT 

310 PRINTS (I, C); 

320 NEXT C, I 

330PRINT^15*64, "PRESSION E QUALQUER TECLA P/ CONTINUAR";: IF INK 

EY $=" ",GOT0 330 ELSE CLS : GOTO 20 

350 CLS: INPUT "NUMEROS DO RESULTADO DA LOTO";D1,D2,D3,D4,D5 

360 F=0 

370 FOR 1=1 TOA 

380 FOR C=1 TO B 

390 IF D1=S(I, C),F=F+1 
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:F0RJ=1 TOB:LPRINTS (l,J);:N 



400 IF D2=S(I,C).F=F+1 

410 IF D3=S(I,C),F=F+1 

420 IF D4=S (l,C),F=F+1 

430 IF D5=S(I,C),F=F+1 

440 NEXTC 

450 IF F > =3, LPRINT "CARTAO";l:LPRINT" 

EX TJ:LPRINT" ":LPRINT D1, D2, D3, D4. D5 

460 F=0 

470 NEXT! 

480 PRINTS 5*64, "P/ CONTINUAR PRESSIONE QUALQUER TECLA";:IF INKE 

Y$=*' ", GOTO 480 ELSE CLS:GOTO 20 

500 CLS:PRINT@t0 # 64+22, "GRAVANDO DADOS DOSCARTOES"; 

505PRINT@13*64, "PRESSIONE QUALQUER TECLA QUANDO PRONTO";:IF IN 

KEYS-" ", GOTO 505 ELSEPRINT@13'64,CHR$ (30); 

510 PRINT #-1, A, B 

520 FOR M TO A 

530 FOR C=1 TOB 

540 PRINT#-1, S(I,C) 

550 NEXTC 

560 NEXT I 

570PRINT(*15 # 64, "PRESSIONE QUALQUER TECLA P/CONTINUAR";:IF INKEY| 

$=" ", GOTO 570 ELSE CLS:GOTO 20 

580 CLS:PRIN>10"64+22, "CARREGANDO DADOS DOS CARTOES P/MEMOR 

IA"; 

590PRINT£13*64, "PRESSIONE QUALQUER TECLA QUANDO PRONTO";:IF IN 

KEY$=" ". GOTO 590 ELSE PRINT&13*64, CHRS (30); 

600 INPUT #-1, A, B, 

610 FOR 1=1 TO A 

620 FOR C=1 TOB 

630 INPUT #-1, S )l, C) 

640 NEXTC 

650 NEXT A 

660 PRIIM>15*64, "PRESSIONE QUALQUER TECLA P/CONTINUAR";:IF INKEY 

$="", GOTO 660 ELSE CLS:GOTO 20 

700 CLS:PRIN>8*64+5,"IMPRIMINDO"; 

710 FOR 1=1 TO A 

715 LPRINT "CARTAO NUMERO- ";l 

716 LPRINT STRING$(63,"=") 
720 FOR G-1 TO B 

750 LPRINT" "; 

760 LPRINT S (I, C); 

775 NEXTC 

776 LPRINT" " 

780 LPRINT STRINGS(63,"=") 

790 LPRINT" " 

800 NEXT I 

810 LPRINT" " 

820 LPRINT STRING${63,"=") 

830 PRINT?15"64+5, "PRESSIONE QUALQUER TECLA P/ CONTINUAR"; 

840 IF INKEY$=" ", GOTO 840 ELSE CLS:GOTO 20 
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r~\ Este programa 6 capaz de for- o unico porfim e que tera de ser 
necer qualquer dia da semana de dado o ano complete Pode ser 
qualquer data deste seculo, levari- muito bem utilizado para pro- 
do em torno de 9 segundos ape- gramas de cadastro e outros do 
nas, sem o uso das f6rmulas adi- genero. 
cionais que todo calendario usa. 



O 

o 
o 



o 
o 



o 
o 



o 
o 



60 CLEAR 1000 

70 CLS 

80 INPUT "DIA DO MES";DM 

90 IFDM< 1 OR DM>31 THEN 80 
100 INPUT "MES":M 
110 IF M<1 OR M>12THEN 100 
120 INPUT "AND COMPLETO"; A$ 
130 A-VAL(A$) 

140 IF A < 1901 OR A > 2001 THEN FOR V=1 TO 30: PRINT® 8'64, "SINTO 
Q MUITO MAS ESTE CALENDARIO E APENAS PARA ESTE SECULO";:FORZA- 

1 TO 50:NEXT:PRINT<3>8* 64, STRINGS (63,128);:NEXT:END 
150 IF A/4=INT (A/4) THEN F=29:B$="BISSEXTCf:ELSE F=28:BS="NAO BISSEX 

TO" 

160 GOSUB280 

170 FOR l=0TOA-1 STEP 4 

180 IF l=0 THEN GOTO 200 

190 N=N+1 

200 NEXT I 

210 B#=(A*365)+N+T-1 
O 220 C 4 *B # II 

230 D#=C#-INT (C#) 

240 IF D # =0 THEN S£="SABADO":GOTO 370 

250 E #=INT((D# *7)+.5) 

260 GOSUB330 

270 GOTO 370 

280 FOR K=1 TOM 

290 READT 

300 NEXT 

310 IF M< 3 THEN T=T+DM:RESTORE:RETURN 
O 320 T=T+F-rDM:RESTORE: RETURN 

330 FOR K=1 TOE #+12 

340 READSS 
Q 350 NEXT 

360 RESTORE:RETURN 

370 FOR KM TOM+19 

380 READ M$ 

390 NEXT 

400 S$-S$+" "+STR${DM>+"/"+M$+"/"+STR$(A| 

410 PRINTS 8*64+10,$$; 

420 DATA 0, 31, 31, 62, 92,123, 153, 184, 215, 245, 276, 306 

430 DATA "DOM", "SEG","TER", "QUA", "QUI", "SEX", "SAB" 

440 DATA "JAN", "FEV", "MAR", "ABR", "MAI", 'JUN", "JUL", "AGO", "SET", 
O "OUT", "NOV", "DEZ" 
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VOCE que fabrica ou vende 
equipamentos ou qualquer 

produto ligado a area de 

^MICROS* 
ANUNCIE EM 



VEICULO EFICIENTE, QUE 

ATINGE DIRETAMENTE O 

CONSUMIDOR DO 
SEU PRODUTO 



(011)217.6111 (DIRETO) C 0/}_ 
(011)943.8733 (DIRETO) ^ 

(011)223.2037 (CONTATOS) 



e. 



*% 



CACO 




